implementation
uses MemMap;

procedure TForm1.Button1Click(Sender: TObject);
var
    FileMapObject:TMemMapFile;
    PData                :PChar;
begin
FileMapObject:=TMemMapFile.Create('C:\WORK\data.txt',
                                                                  fmReadWrite,0,True);
PData := PChar(FileMapObject.Data); 
inc(PData, FileMapObject.Size);
PData^ := #0;
StrUpper(PChar(FileMapObject.Data));
     
FileMapObject.Free;

end;
